((provide 'gnus)): Make sure `gnus-directory' is defined

when byte-compiling.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 29c2b274c203e7c47752d27ae3ba2bff5fb6a42a..40d0cf5b6ca70ad58dd501603e1216ed7a71fc4f 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -15941,6 +15941,7 @@ newsgroup."
 ;; We want to inline a function from gnus-cache, so we cheat here:
 (eval-when-compile
   (provide 'gnus)
+  (setq gnus-directory (or (getenv "SAVEDIR") "~/News/"))
   (require 'gnus-cache))
 
 (defun gnus-get-unread-articles-in-group (info active &optional update)